0 :REM FREISOFT DEMO-SPIEL
1 :REM STEUERUNG EINES SPRITES
2 :REM MIT DEM JOYSTICK
3 :REM (DIRK BREITINGER 2002)
4 :
5 :
10 :GOTO1000:----RUN
20 :SAVE"@0:T&T  JOY+SPRITE",8:RETURN
24 :
25 :
26 :
27 :
30 :REM---SET SPRITE
31 :POKEV+1,Y:POKEV,XAND255:POKEV+16,-(X>=256):POKEV+1,Y:RETURN
32 :
33 :
40 :P=.:JV=J:REM---GET JOYSTICK
41 :J=31-PEEK(56320+P)AND31:IFJ=.THEN:K=J:GOTO41:
42 :JU=SGN((JAND2)-(JAND1)):JR=SGN((JAND8)-(JAND4)):JF=-(J>15):RETURN:
43 :
44 :
50 :REM----HUBSCHRAUBER-SPRITE
52 :DATA,,,,,,,,,,,,,,,,,,,,,,,,127,255,254,128,32,,,112,62,63,255,242,65,3
53 :DATA242,65,123,254,67,123,192,127,123,,127,2,,63,254,,136,4,16,127,255
54 :DATA224,,,,97
55 :
56 :
57 :
100 :NR=.:NB=11:REM----SPRITE-INSTALL
105 :BR=PEEK(648)*256:VB=(PEEK(648)AND192)*256::KX=-25:KY=-42:BX=3:BY=2
106 :A=VB+NB*64:FORI=.TO63:READQ:POKEA+I,Q:NEXT:POKEBR+1016+NR,A/64:RETURN
107 :
108 :
109 :
110 :REM---SPRITE-STEUERUNG
111 :V=53248:POKEV1+21,.:POKEV+27,(PEEK(V+27)AND254):POKEV+39,F:GOSUB30:
112 :POKEV+31,.:POKEV+21,1
120 :GOSUB30:KS=PEEK(V+31)ORPEEK(V+30):IFKSGOTO150:
121 :XV=X:YV=Y:GOSUB40:REM---JOYSTICK
122 :K=K-2*(K<4)-4*(K>3ANDK<8):IFJ<>JVTHEN:K=K/1.5
123 :X=X+JR*K:IFX<15ORX>330THEN:X=15-315*(X>15):K=.
124 :Y=Y+JU*K:IFY<42ORY>235THEN:Y=42-193*(Y>42):K=.
125 :ON1+JFGOTO120:KO=-1:RETURN
127 :
128 :
129 :
150 :REM----KOLLISIION AUSWERTEN
151 :PX=BR+INT((X+KX)/8)-(JR=1):PY=INT((Y+KY)/8)-(JU=1):BP=PX+PY*40
152 :FORI=1TOBY:GOSUB156:BP=BP-(PEEK(BP)=32)*(40-BX+1):NEXT
153 :ON-(JR<>.ANDPEEK(BP)=32)GOSUB156
154 :IFPEEK(BP)=32THEN:BP=B0+1:FORI=1TOBY:BP=BP+(PEEK(BP)=32)*40:NEXT
155 :KO=PEEK(BP):RETURN:
156 :FORJ=1TOBX-1:BP=BP-(PEEK(BP)=32):NEXT:B0=BP:RETURN:
157 :
158 :
159 :
200 :REM---AKTION
201 :IFKO=32THEN:RETURN:
202 :AA=PEEK(BP):FORI=1TO10:POKEBP,.:NEXT:POKEBP,AA:REM--ZEICHENBLINK
203 :X=XV:Y=YV:K=.:GOSUB30:POKEV+31,.:REM--POSITION WIEDERHERSTELLEN
204 :PRINT"    [157][157][157][157]"KO"[157]  ":RETURN:
205 :POKEV+30,.:RETURN:
206 :
207 :
999 :
1000 :REM==============================
1001 :REM
1002 :REM    A U F R U F
1003 :REM
1004 :REM==============================
1005 :
1011 :PRINT"[147]SPRITE-STEUERUNG"
1012 :GOSUB100:REM--SPRITE INST.
1013 :POKE214,10:PRINT:PRINTTAB(25)"[150][214][214][157][157][214][214]":
1014 :POKE214,16:PRINT:PRINTTAB(6)"[153][218]":
1015 :
1100 :REM---SPRITE AUFRUF
1104 :F=13:X=100:Y=100:GOSUB110:REM--EIN
1105 :IFKO>.THEN:GOSUB200:GOSUB120:GOTO1105:REM---AUSWERTEN
1106 :GOSUB202:POKEV+21,.:REM---AUS